*----------------------begin--------------------
cap program drop i17
program define i17
    clear 
    
    *-微信群人数
    local N = 845   // 五个微信群
    
    dis ">>>>>>>>>>>>> 幸运儿正在跑来……"
    forvalues t=10(-1)1{
       sleep 1000
       dis _n _col(15) in red `t'
    }
       sleep 2000
    dis _n(3) in yellow  ">>>>>>>>> 开奖了！<<<<<<<<<" _n(2)
    qui set obs `N'
    qui gen id = _n
    qui sample 7, count // 抽奖
    sort id
    list , clean    // 获奖名单 
    dis _n(5)
end 
*-----------------------over--------------------

*-Note: 使用方法 - 选中「begin」和「over」之间的代码，按快捷键「Ctrl+R」
*       然后在 Stata 命令窗口中输入 i17 即可。

*------------执行--------
*  抽奖
           i17
